home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / recent / warpup1.lha / WarpUP-WarpOS / Source / tools / changeMMU.p next >
Text File  |  1997-06-22  |  1KB  |  76 lines
  1.         incdir  include:
  2.         incdir  lvo:
  3.  
  4.         include powerpc/ppcmacros.i
  5.         include powerpc/powerpc.i
  6.         include powerpc/tasksppc.i
  7.  
  8.         include powerpc_lib.i
  9.         include exec_lib.i
  10.         include dos_lib.i
  11.  
  12.         xref    _SysBase
  13.         xref    _DOSBase
  14.         xref    _PowerPCBase
  15.         xref    _LinkerDB
  16.         smalldata
  17.         executable
  18.         escapestr
  19.         version 10
  20.  
  21. start
  22.         prolog  1024
  23.         push    r31
  24.         la      _d1,template
  25.         la      _d2,Array
  26.         li      _d3,0
  27.         RUN68K_XL       _DOSBase,ReadArgs
  28.         tstw    _d0
  29.         beq     .close
  30.         mr      r31,_d0
  31.         la      r3,Array
  32.         lwz     r4,0(r3)
  33.         tstw    r4
  34.         bne     .standard
  35.         lwz     r4,4(r3)
  36.         tstw    r4
  37.         bne     .bat
  38.         li      r4,0
  39.         CALLPOWERPC     FindTaskPPC
  40.         lwz     r3,TASKPPC_FLAGS(r3)
  41.         bittst  r3,TASKPPCP_BAT
  42.         bne     .showBAT
  43.         la      _d1,showpaged
  44.         b       .printinfo
  45. .showBAT
  46.         la      _d1,showBAT
  47. .printinfo
  48.         la      _d2,Args
  49.         RUN68K_XL       _DOSBase,VPrintf
  50.         b       .done
  51. .bat
  52.         li      r4,CHMMU_BAT
  53.         CALLPOWERPC     ChangeMMU
  54.         b       .done
  55. .standard
  56.         li      r4,CHMMU_STANDARD
  57.         CALLPOWERPC     ChangeMMU
  58. .done
  59.         mr      _d1,r31
  60.         RUN68K_XL       _DOSBase,FreeArgs
  61. .close
  62.         pop     r31
  63.         epilog
  64.  
  65.         section data
  66. template        dc.b    "S=STANDARD/S,B=BAT/S",0
  67. showpaged       dc.b    "This task runs under standard paged MMU setup\n",0
  68. showBAT         dc.b    "This task runs under BAT MMU setup\n",0
  69.  
  70.         section bss
  71.         ds.b    32
  72. Array           ds.l    2
  73. Args            ds.l    1
  74.         ds.b    32
  75.         even
  76.